home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / misc / emu / Apex-src.lha / CHECKSUM.XPL < prev    next >
Text File  |  2001-09-30  |  640b  |  36 lines
  1. \CHECKSUM.XPL    JUN-30-88
  2. \This program calculates and displays a 15-bit checksum on a text file.
  3. \The damn linefeeds are ignored.
  4.  
  5. code    CHIN=7,        CHOUT=8,    CRLF=9,        INTOUT=11,
  6.     TEXT=12,    OPENI=13;
  7.  
  8. int    CH, SUM;
  9. def    LF=$0A, EOF=$1A;
  10.  
  11.  
  12. begin    \MAIN
  13. TEXT(0, "
  14. -- CHECKSUM CALCULATOR, V1.0 --
  15. (LINE FEEDS ARE IGNORED)
  16.  
  17. THINKING...
  18. ");
  19.  
  20. SUM:= 0;
  21. OPENI(3);
  22. loop    begin
  23.     repeat CH:= CHIN(3) until CH # LF;
  24.     if CH = EOF then quit;
  25.     SUM:= SUM + CH;
  26.     end;
  27. SUM:= SUM & $7FFF;
  28. TEXT(0,"
  29. CHECKSUM = ");   INTOUT(0,SUM);   CRLF(0);
  30. end;    \MAIN
  31. EOF then quit;
  32.     SUM:= SUM + CH;
  33.     end;
  34. SUM:= SUM & $7FFF;
  35. TEXT(0,"
  36. CHECKSUM = ");